home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8506.arc / FIELDS1.BAS < prev    next >
BASIC Source File  |  1986-09-14  |  1KB  |  26 lines
  1.  
  2. 100 OPEN "MYFILE.DAT" AS #1 LEN=90          ' a random I/O file
  3. 105 DIM REC.CHAR$(90)                       ' array for characters
  4. 110 FIELD 1, 90 AS REC.DAT$                 ' define entire record
  5. 120 FIELD 1, 30 AS NA$, 30 AS AD$, 30 AS CS$   'plus its fields
  6. 130 FIELD 1,60 AS DUM$,23 AS C$,2 AS S$,5 AS Z$  'and sub-fields
  7. 135 LSET REC.DAT$=SPACE$(90)                  ' blank out record
  8. 137 'set some fields and subfields
  9. 140 LSET NA$="J Smith" : LSET AD$="123 A St." 
  10. 150 LSET C$="Baltimore" : LSET S$="MD" : LSET Z$="23456"  
  11. 160 PUT 1,1                                ' save this record
  12. 170 GET 1,1                                ' retrieve it
  13. 200 FOR I=1 TO 90                          
  14. 205 'loop to define each character in record
  15. 210 FIELD 1, (I-1) AS DUMMY$, 1 AS REC.CHAR$(I)
  16. 220 NEXT I                                  ' end of define loop
  17. 230 PRINT CS$                               '   here are 4
  18. 240 PRINT C$;S$;Z$                          '     ways to do
  19. 250 PRINT MID$(REC.DAT$,61,30)              '       the very
  20. 260 FOR I=61 TO 90                          '          same
  21. 270  PRINT REC.CHAR$(I);                    '            thing
  22. 280 NEXT
  23. 1000 FOR I = 1 TO 60
  24. 1005 PRINT REC.CHAR$(I);
  25. 1010 NEXT
  26.